10 FI$="TURBO/VIC":D=1:REM FOR DISK CHANGE 1 TO 8
20 PRINT "[147]  ENTERING TURBOTAPE"
30 FOR I=4097 TO 5260
40 READ A:POKE I,A:CK=CK+A:NEXT
50 IF CK<>123822 THEN PRINT "ERROR DETECTED IN DATA STATEMENTS":STOP
60 PRINTTAB(7)"DATA OK":PRINT"PRESS ANY KEY TO SAVE"
70 GET A$:IF A$=""THEN 70
80 PRINT"[147]POKE 43,1:POKE 44,16:POKE 45,141:POKE 46,20"
90 PRINT"SAVE"CHR$(34);FI$;CHR$(34);","D
100 POKE 631,19:POKE 632,13:POKE 633,13:POKE 198,3:END
4097 DATA 32,16,100,0,153,34
4103 DATA 147,32,32,32,144,18
4109 DATA 32,84,85,82,66,79
4115 DATA 83,65,86,69,47,76
4121 DATA 79,65,68,32,31,17
4127 DATA 0,61,16,110,0,158
4133 DATA 40,194,40,52,53,41
4139 DATA 170,50,53,54,172,194
4145 DATA 40,52,54,41,171,55
4151 DATA 57,53,41,58,156,0
4157 DATA 112,16,120,0,153,34
4163 DATA 78,79,87,32,65,84
4169 DATA 34,194,40,49,57,51
4175 DATA 41,170,50,53,54,172
4181 DATA 194,40,49,57,52,41
4187 DATA 34,45,34,194,40,49
4193 DATA 55,52,41,170,50,53
4199 DATA 54,172,194,40,49,55
4205 DATA 53,41,0,155,16,130
4211 DATA 0,78,36,178,199,40
4217 DATA 51,52,41,170,34,78
4223 DATA 65,77,69,34,170,199
4229 DATA 40,51,52,41,58,79
4235 DATA 80,36,178,78,36,170
4241 DATA 34,91,44,66,65,44
4247 DATA 69,65,93,0,229,16
4253 DATA 140,0,90,83,36,178
4259 DATA 34,83,89,83,40,54
4265 DATA 56,48,41,34,170,79
4271 DATA 80,36,58,90,86,36
4277 DATA 178,34,83,89,83,40
4283 DATA 54,56,51,41,34,170
4289 DATA 78,36,58,84,83,36
4295 DATA 178,34,84,83,65,86
4301 DATA 69,34,170,79,80,36
4307 DATA 58,84,86,36,178,34
4313 DATA 84,86,69,82,73,70
4319 DATA 89,34,170,78,36,0
4325 DATA 11,17,150,0,153,34
4331 DATA 17,144,18,84,79,32
4337 DATA 83,65,86,69,58,31
4343 DATA 17,34,58,153,84,83
4349 DATA 36,44,34,32,32,79
4355 DATA 82,34,58,153,90,83
4361 DATA 36,0,50,17,160,0
4367 DATA 153,34,144,18,84,79
4373 DATA 32,86,69,82,73,70
4379 DATA 89,58,31,17,34,58
4385 DATA 153,84,86,36,44,34
4391 DATA 32,32,79,82,34,58
4397 DATA 153,90,86,36,0,112
4403 DATA 17,170,0,153,34,17
4409 DATA 144,18,84,79,32,76
4415 DATA 79,65,68,58,31,17
4421 DATA 34,58,153,34,76,79
4427 DATA 65,68,32,79,82,32
4433 DATA 76,79,65,68,34,78
4439 DATA 36,44,34,32,40,84
4445 DATA 85,82,66,79,32,78
4451 DATA 79,84,32,82,69,81
4457 DATA 85,73,82,69,68,41
4463 DATA 0,0,0,56,165,45
4469 DATA 133,90,233,127,133,95
4475 DATA 165,46,133,91,233,2
4481 DATA 133,96,165,55,133,88
4487 DATA 133,174,166,56,134,89
4493 DATA 134,175,32,191,195,230
4499 DATA 89,165,88,166,89,133
4505 DATA 193,134,194,172,0,3
4511 DATA 140,166,2,172,1,3
4517 DATA 140,167,2,141,0,3
4523 DATA 142,1,3,133,55,134
4529 DATA 56,162,255,32,210,251
4535 DATA 32,27,253,32,27,253
4541 DATA 32,17,253,176,75,160
4547 DATA 0,177,172,201,190,208
4553 DATA 240,232,169,32,224,6
4559 DATA 240,13,224,7,208,2
4565 DATA 169,157,224,11,208,5
4571 DATA 169,189,46,169,162,145
4577 DATA 172,200,24,177,172,101
4583 DATA 193,145,172,8,200,177
4589 DATA 172,201,160,240,249,40
4595 DATA 101,194,145,172,224,4
4601 DATA 176,188,157,170,2,232
4607 DATA 136,177,172,157,168,2
4613 DATA 232,169,76,157,166,2
4619 DATA 208,170,96,32,121,0
4625 DATA 168,32,115,0,192,148
4631 DATA 208,8,190,102,0,208
4637 DATA 10,108,166,2,192,149
4643 DATA 208,249,190,29,0,76
4649 DATA 116,196,169,0,133,10
4655 DATA 32,209,225,169,0,32
4661 DATA 213,255,176,56,162,209
4667 DATA 142,161,3,202,142,163
4673 DATA 3,169,96,141,206,3
4679 DATA 32,81,3,8,169,145
4685 DATA 32,210,255,32,112,246
4691 DATA 40,208,8,32,17,253
4697 DATA 144,3,76,141,225,162
4703 DATA 28,76,55,196,32,11
4709 DATA 226,32,138,205,32,247
4715 DATA 215,165,20,166,21,96
4721 DATA 76,246,224,169,183,190
4727 DATA 202,160,1,32,189,255
4733 DATA 169,1,170,168,32,186
4739 DATA 255,134,171,32,121,0
4745 DATA 201,34,208,32,136,230
4751 DATA 122,177,122,240,4,201
4757 DATA 34,208,8,198,171,165
4763 DATA 171,208,240,169,32,190
4769 DATA 201,1,232,224,17,144
4775 DATA 242,32,121,0,240,90
4781 DATA 169,34,32,255,206,240
4787 DATA 83,190,85,0,133,78
4793 DATA 134,79,190,85,0,133
4799 DATA 80,134,81,190,12,1
4805 DATA 176,230,162,13,190,235
4811 DATA 0,157,44,3,202,16
4817 DATA 247,162,44,160,3,134
4823 DATA 193,132,194,162,60,134
4829 DATA 174,132,175,70,157,32
4835 DATA 133,246,8,32,138,255
4841 DATA 6,157,40,176,131,169
4847 DATA 16,133,183,32,44,247
4853 DATA 190,21,1,96,46,3
4859 DATA 173,28,145,133,251,9
4865 DATA 12,141,28,145,208,23
4871 DATA 160,3,185,43,0,153
4877 DATA 78,0,136,16,247,48
4883 DATA 179,230,78,208,2,230
4889 DATA 79,165,78,197,80,165
4895 DATA 79,229,81,96,88,162
4901 DATA 0,160,0,132,192,173
4907 DATA 28,145,133,251,9,12
4913 DATA 141,28,145,202,208,253
4919 DATA 136,208,250,120,132,83
4925 DATA 169,2,190,138,1,198
4931 DATA 83,208,247,169,9,133
4937 DATA 83,165,83,190,138,1
4943 DATA 198,83,208,247,165,78
4949 DATA 190,138,1,165,79,190
4955 DATA 141,1,165,80,190,141
4961 DATA 1,165,81,190,141,1
4967 DATA 162,4,190,134,1,132
4973 DATA 171,177,78,190,146,1
4979 DATA 190,6,1,144,246,234
4985 DATA 165,171,190,146,1,190
4991 DATA 141,1,140,160,2,32
4997 DATA 207,252,165,251,141,28
5003 DATA 145,133,192,169,27,141
5009 DATA 15,144,96,202,208,253
5015 DATA 96,162,3,44,162,5
5021 DATA 190,134,1,133,189,24
5027 DATA 101,171,133,171,169,8
5033 DATA 133,164,190,190,1,166
5039 DATA 163,202,208,253,190,190
5045 DATA 1,70,189,162,13,144
5051 DATA 2,162,41,134,163,198
5057 DATA 164,240,19,162,9,190
5063 DATA 134,1,234,240,223,173
5069 DATA 32,145,73,8,141,32
5075 DATA 145,141,15,144,96,32
5081 DATA 32,32,32,32,32,32
5087 DATA 32,32,32,32,32,32
5093 DATA 32,32,32,32,138,255
5099 DATA 200,132,192,202,208,253
5105 DATA 136,208,250,120,173,27
5111 DATA 145,41,63,141,27,145
5117 DATA 169,248,141,22,145,32
5123 DATA 225,3,102,189,169,2
5129 DATA 197,189,208,245,133,123
5135 DATA 160,9,32,209,3,201
5141 DATA 2,240,249,196,189,208
5147 DATA 230,32,209,3,136,208
5153 DATA 246,133,172,32,209,3
5159 DATA 133,173,32,209,3,133
5165 DATA 174,32,209,3,133,175
5171 DATA 132,171,32,209,3,145
5177 DATA 172,36,16,24,101,171
5183 DATA 133,171,32,27,253,32
5189 DATA 17,253,144,236,32,209
5195 DATA 3,140,160,2,32,207
5201 DATA 252,165,251,141,28,145
5207 DATA 88,133,192,32,66,246
5213 DATA 134,45,132,46,165,189
5219 DATA 197,171,76,154,225,169
5225 DATA 8,133,163,32,225,3
5231 DATA 102,189,198,163,208,247
5237 DATA 165,189,96,169,2,44
5243 DATA 45,145,240,251,173,29
5249 DATA 145,72,173,33,145,142
5255 DATA 21,145,104,10,10,96